| >!Run file for SHexen
|  Justin Fletcher, 1998
|
Set SHexen$Dir <Obey$Dir>
IconSprites <SHexen$Dir>.!Sprites
|
| We need to load the SHexen module
If "<Hexen$Dir>"="" Then Error SHexen requires Hexen to be have been seen. Please locate Hexen before running SHexen.
|
| If HexenSupport is loaded, and HexenNetwork is loaded, all is well
| If HexenSupport is loaded, and HexenNetwork is not loaded, all is well
| If HexenSupport is not loaded, and HexenNetwork is loaded, kill HexenNetwork
| If HexenSupport is not loaded, then load it
| Why ?
| Because we need to ensure we are poking into the correct module, and if
| HexenNetwork is running but there is no HexenSupport then things WILL go
| awry.
Set SHexen$NeedHexenSupport No
RMEnsure HexenSupport 1.03 Set SHexen$NeedHexenSupport Yes
If "<SHexen$NeedHexenSupport>" = "Yes" Then Set SHexen$KillHexenNetwork Yes
If "<SHexen$NeedHexenSupport>" = "Yes" Then RMEnsure HexenNetwork 0 Set SHexen$KillHexenNetwork No
If "<SHexen$NeedHexenSupport>" = "Yes" AND "<SHexen$KillHexenNetwork>" = "Yes" Then RMKill HexenNetwork
If "<SHexen$NeedHexenSupport>" = "Yes" Then RMLoad <Hexen$Dir>.Support
RMEnsure HexenSupport 1.03 Error SHexen requires HexenSupport 1.03 or later.
Unset SHexen$NeedHexenSupport
Unset SHexen$KillHexenNetwork
|
| We need to know in the program if we just loaded the module
Set SHexen$Loaded 0
RMEnsure HexenNetwork 0.00 Set SHexen$Loaded 1
RMEnsure HexenNetwork 0.00 RMLoad <SHexen$Dir>.NetDriver
|
| If they only wanted the modules loaded, don't run the program
If "%0" = "-quit" Then Obey
|
| If we are running under an older window manager we need to load BorderUtils
RMEnsure WindowManager 3.20 RMEnsure BorderUtils 0.00 RMLoad System:Modules.BorderUtil
WimpSlot -min 48k -max 48k
Run <SHexen$Dir>.!RunImage %*0